home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1991 / 06 / alib / strerror.asm < prev    next >
Assembly Source File  |  1991-08-21  |  712b  |  51 lines
  1.     title    error message interface
  2.     include    asm.inc
  3.  
  4.     public    clear_strerror
  5.     public    get_strerror
  6.     public    set_strerror
  7.  
  8.     .data
  9.     extrn    dgroup_segment:word
  10.  
  11.     .data?
  12. strerror_ptr    dw    ?
  13.  
  14.     .code
  15.  
  16. ;;    clear strerror
  17. ;
  18. ;    zeros error string pointer
  19. ;
  20. clear_strerror proc
  21.     mov    strerror_ptr[bp],NULL_POINTER
  22.     ret
  23. clear_strerror endp
  24.  
  25.  
  26. ;;    get strerror
  27. ;
  28. ;    exit    DS:SI    error string
  29. ;        Zf    if no error string
  30. ;
  31. get_strerror proc
  32.     mov    ds,dgroup_segment[bp]
  33.     mov    si,strerror_ptr[bp]
  34.     cmp    si,NULL_POINTER
  35.     ret
  36. get_strerror endp
  37.  
  38.  
  39. ;;    set strerror
  40. ;
  41. ;    entry    AX    DGROUP offset of asciiz error string
  42. ;    exit    Cf    1
  43. ;
  44. set_strerror proc
  45.     mov    strerror_ptr[bp],ax
  46.     stc
  47.     ret
  48. set_strerror endp
  49.  
  50.     end
  51.